COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	% SEE file lett[tex,mmd] for proper way to customize the macros
C00005 ENDMK
C⊗;
% SEE file lett[tex,mmd] for proper way to customize the macros
\input kermac

	% Define letter layout styles:
\def\stanford{\let\Me=\ssig
	\hbox{\eightpoint\hfill
		$\vcenter{\hbox{\stanlogo}}$
		$\vcenter{\lftcol{\saddr}}$}
	\yyskip
	\rjustline{\datefmt\hskip 20pt}
	\vskip .5vu}
\def\job{\let\Me=\jsig
	\hbox{\eightpoint\hfill
		$\vcenter{\hbox{\jlogo}}$
		$\vcenter{\lftcol{\jaddr}}$}
	\yyskip
	\rjustline{\datefmt\hskip 20pt}
	\vskip .5vu}
\def\personal{\let\Me=\psig
	\baselineskip 9pt
	\ctrcol{\:r \paddr}
	\vskip 30pt
	\rjustline{\teniu\datefmt\hskip 20pt}
	\vskip .5vu}

	% example: \to{R. Rigan\cr Fresco, CA.\cr ...\cr\skip Dear looser:} or
	%   \to{Dear X,}
\def\to#1{\save0\lftcol{#1}\save1\copy0\box0\yskip}
\def\skip{\noalign{\yyskip}}
	% Say \fin to end letter and to produce envelope sticker in a new page
\def\fin{\endpage\boxit{\box1}\bye}

	% Choose between \english and \spanish:
\let\jnkeng=\english
\def\english{\jnkeng\gdef\datefmt{\date, 1980}}
\let\jnkspa=\espanol
\def\espanol{\jnkspa\gdef\datefmt{\date\ de 1980}}

	% Initializations
\hsize 6vu
\fullpages     % pend better output routine (with some id on each page)
\def\hshft{0vu}
\ninepoint